! 68000 MEMORY MAPPING PROGRAM! CHECKS PROBE TIP EVERY 1000 HEXINCLUDE "68000.POD"SETUP   TRAP ACTIVE FORCE LINE NO   TRAP ACTIVE INTERRUPT NOPROGRAM MAIN   SYNC ADDRESS   REGF = 01: LABEL 1      WRITE @ REGF =FFFF   READ PROBE   IF REG0 AND 4000000 > 1 GOTO 2      READ @ REGF   READ PROBE   IF REG0 AND 4000000 > 1 GOTO 2   GOTO 32: LABEL 2   DPY-#$F   STOP   GOTO 33: LABEL 3   SHR REGF   SHR REGF   SHR REGF   SHR REGF   SHR REGF   SHR REGF   SHR REGF   SHR REGF    SHR REGF   SHR REGF   SHR REGF   SHR REGF   INC REGF   SHL REGF   SHL REGF   SHL REGF   SHL REGF   SHL REGF   SHL REGF   SHL REGF   SHL REGF   SHL REGF   SHL REGF    SHL REGF   SHL REGF   DPY-$F   IF REGF > EFFFFFF GOTO 4   GOTO 14: LABEL 4   DPY-#   DPY-OUT OF ADDRESS RANGE   STOP